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MODULE RSXRT ( 
IDENT = *V04-000', 
MOONE SOE RS PS LERTERNAL, “CERERM,D 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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® 
® 
® 
: ® 
ie pile SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'# INCLUSION OF THE ABOVE Slt NOTICE. THIS SOFTWARE OR ANY OTHER * 
1® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. ® 
4 * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
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i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: REMOTE TERMINAL SUPPORT 

i ABSTRACT: 

THIS PROGRAM SUPPORTS THE RSX-11M REMOTE TERMINAL PROTOCOL. 

i ENVIRONMENT : 


VAX/VMS Operating System 


AUTHOR: WM CARDOZA, CREATION DATE: 2-JAN-80 


i MODIFIED BY: 
yO3-003 wMc0002 Wayne Cardoza 28-Feb-1984 
Fix check for cancel-all. 
v03-002 MHB0081 Mark Bramhall 11-Sep-1982 
Use IOS_TTYREADALL instead of 10$_READPBLK. 
v03-001 tot gd Wayne Cardoza 6-May-1982 
Check for valid CURRENTIO im CANCEL. 
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| 
000 | 
3 8 O038 1 lee 3 
; 9 1 LIBRARY 'SYSSLIBRARY:LIB'; | 3 
; 60 60 1 LIBRARY 'SYSSLIBRARY:CLIMAC’; ; 
: 61 61 1! | 3 
co a bO¢ 3 3 
3 6 6 1! 3 
; 64 64 1 FORWARD ROUTINE 3 
; 665 065 7 GETTERMCHAR: NOVALUE, ; 
3 66 28 1 GE TBUF 3 
: 67 067 1 FREEBUF, : 
; 668 0068 1 INDREAD, : 
3 9 B98 1 LINKRECV: NOVALUE, 3 
; 0 0 1 WRITE: NOVALUE, : 
. 071 1 TERMMBXMSG: NOVALUE, ‘ 
3 7 oO76 1 READ: NOVAL 3 
; 0073 1 CNTRLCAST: NOVALUE, 3 
: 4 0074 1 CNTRLYAST: NOVALUE : 
ss oe 0075 1 READSINGLE: NOVALUE, : 
: 676 9076 1 ATTACH: NOVALUE, ; 
: 77 0077 1 RSXRT: NOVALUE, ; 
; «678 0078 1 LINKMBXMSG: NOVALUE, : 
: 79 0079 1 BROADCAST: NOVALUE ; 
: 80 0080 1 READPROMPT: NOVALUE, ; 
: «BI 0081 1 QIODONE: NOVALUE, : 
; 682 0082 1 CANCEL: NOVALUE, : 
; «83 0083 1 TERMINATOR : 
> 84 0084 1 UNSUPPORTED: NOVALUE, : 
oe 0085 1 MAPMOD I r ; 
; 686 0086 1 LINKWRTDONE: NOVALUE, 3 
; 687 0087 1 NEXTIO: NOVALUE, : 
; «688 0088 1 UNSDATENBL: NOVALUE, : 
; 689 0089 1 ONECHAR: NOVALUE; : 
; 0090 1! 3 
; | (91 0091 1! 5 
; (9 0092 1 MACRO ; 
c - 0093 1 RTP_BUF = BLOCK(32) FIELD(RTP_FIELDS) %, : 
> 94 0094 1 QUIT = BEG! 3 
: #95 ™ 0095 1 SSETAST (ENBFLG = 0); ! STOP EVERYTHING ; 
5 © 1 WAKEFLAG = 1; 3 
F} 97 ™ 0097 1 W. 5 ! WAKE UP BASE LEVEL PF 
; #98 ™ 0098 1 RETURN; 3 
; 99 0099 1 END %, 3 
: 100 ™ 0100 1 QUIT_ON_ERROR = IF (.RETSTATUS AND 1) EQL 0 THEN 3 
: 101 9191 1 QUIT %; 3 
3 108 1 § 1! 3 
: 10 0103 1 ! EQUATED SYMBOLS: | : 
: 104 104 1! 3 
3 105 105 1 LITERAL : 
: 106 1 1 ' FUNCTION CODES : 
> 10 107 1 RF_NOP = 0, ' NOP : 
: 108 108 1 RF-SSD = 1, | CONFIGURATION | 3 
: 109 1 1 RF-DIS = ¢: ' DISCONNECT 3 
> 110 110 1 RF-WTD = 3, ' WRITE DATA 3 
> 111 111 1 RF-RDD = 4, | READ DATA : 
: 118 11g 1 RF-WRD = 5, i READ WITH PROMPT 3 
: 11 113 1 RF-UNS = g. i UNSOLICITED INPUT DISABLE/ENABLE | 3 
: 114 114 1 RF-RSC = 7, ' READ SINGLE CHARACTERS | 3 
| 
| 
| 
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VAX=-11 BLi 
DISKSVMSMA 


CHAN: WORD, 
CHAN: WORD 
: $R 
$F 


v04-000 

: § } ROUTINE RSXRT: NOVALUE = 

: 239 8 1: 

& 240 9 1! Functional Description: | 

: re 8 rt 1 Performs initialization functions for RSX remote terminals. 
: ag 4g 1 i 

> 2446 45 1! Calling ot 

: cz 8 te ! standard 

; rt 4 rf ! Input Parameters: 

; rt rk i Implicit Input 

; ! Implic nputs: 

: 251 7 3 

: 358 b589 7 | Pan 

; 27 8 26 } Output Parameters: 

; 2¢ 8 2 i Implicit 0 

3 ! Implic utputs: 

3 oor 0256 1! 

: $2 0937 1 i mess: 

: $28 8 38 1 Routines Cal leds 

> 261 0260 1! = 

3 $06 8 ] } } Routine Value: 

; ! non 

s 566 0568 1 | : 

: so? asee 1 Signals: 

AP a 2 oe: 

3 $08 036 1 ! Side Effects: 

; 269 0268 1! A sont speret on message is transmitted. 

3 sf 0269 1! A prompt is displayed on the screen. 

; 44 8 4 ; Reads are initiated on the terminal mailbox and on the Link. 
; $78 0 2 1 i-- 

3 «6274 027 BEGIN 

s ed 0274 LOCAL 

s $76 0275 BUFFER: REF RTP_BUF; 

4 $f 0276 RETSTAT = 

: 78 P 0277 $Q10W (CHAN = .LINKCHAN, ' SEND CONFIGURATION MESSAGE 
; 279 P 0 re FUNC = I0$_WRITEVBLK, 

: 280 P 8 7 Pi = .VMSCONFIG 

> 281 80 P2 = 4 « .(. VMSCONFIG-4)); 

3 ag 81 QUIT_ON_ERROR; 

:; 28 S RETSTATOS = 

3: 6284 P 028 $Q]0W (CHAN = .RDWRTCHAN ' ENABLE UNSOLICITED INPUT 
> 285 84 FUNC = 10$_WRITEVOLK+10$M_ENABLMBX) ; 

; 36 5 QUIT_ON_ERROR; 

; 2 RETSTATOS = 

3; 288 P 028 $010 (CHAN = .TERMMBXCHAN,  ! UNSOLICITED DATA MBX READ 
3; 289 p FUNC = JO$_READVBLK, 

: 90 P 9 ASTADR = TERMMBXMSG, 

; 291 P Pl = TER ° 

3 35 91 P2 = 8); 

: 29 92 QUIT_ON_ERROR; 
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«TITLE RSXRT 
-IDENT \V04-000\ 


-PSECT PROTOTBL ,NOEXE ,0 


0002 00000 PROTOMASK: 


2 


00000000" 00002 RSXADDR: .ADDRESS RSXRT 


~ WORD 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


9 
1, 1, 0, 0 


- LONG 
BYTE 


00000009 00000 
00 00 Of if 00004 P.AAA: 


RSXRT 
v04-000 


0002 3 


tte ead eRe ye eM 


3€ 


00000000' 


00000000 

00 

00 

00 

00 

00000000 

0000000 

00000000 

00000000" 90000000" 
00 00 00 OC 


E0000000 00000000 00000000 FFFFFFFF 
00000010 


0080008 , 
€00200 


00000004 
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00000 
00008 
0000c 
00014 
00018 
00019 
QO01A 
00018 
0001C 
00020 


00024 IND 
000¢8 
00050 BUF QU 


00038 
0003¢ 
00064 
00074 


00078 
0007¢ 


00080 
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«WORD 
WORD 158° 
“BYTE 


“a ER oe ey 5 
¢. x to tie ta 4 

.BLKB 
P.AAB: ASCII \>\ 

.PSECT SOWNS,NOEXE,2 
NAME LOSB: 

.B 8 
VMSCONF 16: 

«ADDRESS P.AAA 
TERMMBXDATA: 
UNSOLENBLFLG: 
ATTACHFLAG: 
SINGLE INPROG: 
UNSOLPEND: 
READINPROG: 
SINGLEFLAG: 
CURRENTIO: 


ooo coc olUcrWOlUCOlUCUCOOlUWDOD 


- LONG 
{OQUEVE: “ADDRESS IOQUEVE, IOQUEUE 


sADDRESS BUFQUEVE, BUF QUEUE 
CNTRLCMSG: 
-BY YTE 12, 0, 0, 0 


LINKMAIL: 

«BLK 40 
STERMMASK: 

LONG -1, 0, 0, -536870912 
STERMDESC: 


«LON 16 

ADDRESS STERMMASK 
NTERMMASK: 

.LONG 201334784 
NTERMDESC: 


LONG 4 
eececeny” 44 REO _psentappress NTERMMASK 
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0089 
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.EXTRN SYSSCLI, LIBSGET_VM 

sEXTRN TTYDESC, REMS$_NETDIS 

-EXTRN RDWRTCHAN, CNTRLCHAN 

;EXTRN TERMMBXCHAN, MAILCHAN 

-EXTRN LINKCHAN, SYSINRAB 

-EXTRN SYSINFAB, INDFLAG 

SEXTRN WAKEFLAG, RETSTATUS 

-EXTRN SYS$QIOW, SYSSSETAST 

SEATRN SYSSWAKE. SYS$QIO 

.PSECT SCODE$,NOWRT,2 


O1FC 00000 RSXRT: .WORD Save R2,R3,R4,R5,R6,R7,RB : 0236 

58 900000006 00 9E 0002 MOVAB eave ca AN, R ; 

7 99000006 9E 990 MOVAB RDWRTCHAN, ; 

§ 000000006 00 9E 00 10 MOVAB LINKCHAN, R : 

8000" F 9E 0001 MOVAB INDDATA, ; 

34 9000 0006 00 9€ O01¢ VAB  SYS$QI0W, : 

3 000000006 00 9€ 000 MOVAB SYS$Q10, RZ : 

52 000000006 00 3 002A MOVAB RETSTATUS, R2 : 
se OE boos ttt ete) Escmee 

50 E4 hs 06 00 ; MOVL § VMSCONFIG F 

7E FC AO 08 00039 ASHL ns ones.” sp) : 

5 bp 003€ PUSHL : 

ze C 00040 CLRQ {SPD _ : 

7E 30 7D 0042 ova wa : 

7E $6 3C 9004 MOVZWL CNcHAN. csp) : 

E 04 00048 LRL (SP) : 

64 Q FB 004A CALLS #12, SYSSQIOW ; 

62 DO 00040 MOVL RO, RETSTATUS : 

61 & Eg 005 BLBC RETSTATUS, 1$ : 
7E 7C 003 CLRQ = (SP) + 0284 

7E 7C 000 CLRQ = (SP) : 

7E 7C 0005 CLRO = (SP) : 

7E 7¢€ 00059 CLRO : 

7E D4 00058 CLRL =P) : 

7E BO 8F 9A 99D MOVZBL #176 ; 

7E 7 3¢ 00061 MOVZWL RDURT CHAN, csp) : 

E D4 00064 CLRL (SP) ; 

64 Q FB 00 CALLS #12, SYSSQI : 

8 PS 006C Bee ORE  RETSIATYS : 
s 5? 6f CLRO Refs I + 0291 

7E 7C 1 CLRO =¢35) : 

0 bb 7 PUSHL #8 : 

E8 AS 9F 0007 SH TERMMBXDATA : 

7E D4 0007 CLRL : 

0000v CF 9F 7A PUSHAB TERrmeAns : 

7E 1 7D fF MOVa ; 

7E 000000006 00 3¢ MOVZWL TERMMBXCHAN, -(SP) ; 

6 E Pe DORA Cn Hae 

fae: oe Ba : 
$ 5? 9 CLRO Re SB) : 0298 
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393 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 
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16-Sep-1984 02:18: VAX=11 Bliss-32_ V4.0-742 Page 12 R 

19-808-1 382 06: bB:2) DISKSVMSMASTER: CRTPAD.SRCIRSXRT.B32;1 ° (45 v0 
3 7 8 5 1 ROUTINE GETBUF = 
3 8 § 1 '+¢ 
3 9 8 1! 
: 340 8 1 ! Functional Description: 
> 341 0339 1! Allocate a buffer. 
; 34 0340 1! 
> 0341 1! 
> 344 0 t 1: Calling Sequence: 
3; 345 0345 1! standard 
> 346 0344 1! 
: 47 0345 1 ! Input Parameters: : 
: 348 0 6 1! 
3; «+349 0347 1! 
3 $29 base 1! Implicit [rpuges 
s 35) 0349 1! BUF QUEUE 
3 326 0350 1! 
3 32 0351 1 ! Output Parameters: 
; 54 Be2¢ 2 none 
3 330 0353 1! 
3 336 0354 1 ! Implicit Outputs: 
s Sor 0355 1! none 
3 398 0356 1! 
: 359 0357 1 ! Routines Called: 
: 360 0358 1! LIBSGET_VM 
; 361 0359 1! 
3 $08 0360 1 ! Routine Value: 
s 36 0361 1! buffer address 
3: 364 bre 1! 
; 365 0365 1 ! Signals: 
3; 366 0364 1! none 
; 367 0365 1! 
: 368 0366 1 ! Side Effects: 
; 369 0367 1! none 
: 370 0368 1! 
3; 371 0369 1 !-- 
; 0370 2 BEGIN 
.. oT 0371 LOCAL 
3; 374 Be6 BUFADR:; 
5 75 037 IF REMQUE( .BUFQUEUE,BUFADR) EQL 3 THEN ' WAS QUEUE EMPTY? 
; 76 0374 2 L ET_VM(UPLIT(128+16) ,BUFADR); ' GET A BUFFER 
4 77 0375 2 RETURN .BUFADR; 
s 3 0376 1 END; 

-PSECT SPLITS,NOWRT,NOEXE,2 
O00e -BLKB 3 
00000090 0002C P.AAC: .LONG 144 3 
-PSECT S$CODES,NOWRT,2 
0099 0000 GETBUF: .WORD Save nothing 3 0333 
7E 0000' pF F 000 REMQUE Spur QUEUE. UFADR : 0 
0 oC 000 MOVPSL R 3 


“19 VAX=11_BLiss-32_v4.0-742 3 
1e=8ep-1984 19:06:57 DISKSUMSMASTERSERTPAD. SRCIRSKRT.832:1°%° (43 


1 XTZV , #2, RO, RO : 

88 : EMPL Ad: 3 : 
E SP + 0374 

0000" cr P.AAC : 

000000006 90 2 #2 L1BSGET_VM : 
0 BUFADR, R : 0375 


; Routine Size: 36 bytes, Routine Base: S$CODE$ + 0189 


:; 379 0377 #1 


eee ee eer og oe eee oe wt 9 Te. cee... oe LR py ee ae me net ee eee ge (eee " 
F 3 

RSKRT 16-Sep-1984 02:18: VAX-11 Bliss-32 V4.0-742 Page 14 

you~000 14-Se 7188¢ 96: 8:8) DISKSVMSMASTER: CRTPAD.SRCIRSXRT.B32; 1 . (4) 

ROUTINE FREEBUF (BUF) = 


i Functional Description: 
: Release a buffer. 


vo 


Calling Sequence: 
standard 


Input Parameters: 
BUF = buffer address 


Implicit Inputs: 
none 


ee we ole olololololelololo) 


SOOCOSOCSO OO OOOO OOOOWDWOMM@M@DM@o~T—~) 
MEUM 9 ODNAUES WN (OC OONOU SW OW0 


IN a eed od od dd 


! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
97 0 ' Output Parameters: 
98 0 ! none 
399 03 ‘ 
400 03 ' Implicit Sutpytsr 
401 03 ' BUF QUEUE 
40 03 ' 
40 04 ' Routines Called: 
404 04 ! none 
405 04 ! 
406 04 ' Routine Value: 
407 04 ! none 
408 04 ! 
4uU? t's] ! Signals: 
410 040 ' none 
411 0408 . 
tig 0409 ' Side Effects: 
41 9410 ! none 
414 0411 ! 
415 Belg cee 
416 041 BEGIN 
417 0414 INSQUE (. BUF ,BUF QUEUE) 
418 0415 END; 


0000 FREEBUF:.WORD Save nothin : 0378 

50° oe Bones ctrl eR ° : baie 
0000" CF 04 INSQUE @BUF, BUFQUEUE : 
; Oot eons : 

4 OO00E 1$ RET + 0415 


; Routine Size: 15 bytes, Routine Base: S$CODE$S + O1AD 


-32_V4.0-74 Page 15 
ERSCRTPAD-SRCIRSKRT.B32;1°9° (53 


; 420 p66 1 ROUTINE LINKRECV(BUFFER): NOVALUE = 

> 421 417 1 !+4 

; & § oi8 1! 

3; 46 4) 1! Functional Description: 

; 2 ¢ r Y : Receive a message on the Link and call the correct service routine. 
3; 46 § 4 ¢ 1! 

s 6 4 1! Calling ot me 

; 428 424 1! Standard 

; 429 425 1! 

: 430 04 8 1 ! Input Parameters: 

3 : 1 8 f ! BUFFER = input buffer address 

3; 4 g 0429 1! Implicit Inputs: 

3; 4 0430 1! none 

>; 435 0431 1! 

s 6 04 ¢ 1 ! Output Parameters: 

: 437 04 1! non 

>; 438 ot 1! 

; 439 0435 1! Implicit Outputs: 

; 440 0436 1! RETSTATUS 

: 441 0437 1! 

; 44 0438 1 ! Routines Called: 

: 64 0439 1! WRITE 

: 4664 0440 1! READ 

: 445 0441 1! READPROMPT 

>; 446 044 3 UNSDATENBL 

: 667 0445 1! CANCEL 

: 448 0444 1! READSINGLE 

3; 449 0445 1! 

; 450 0446 1! UNSUPPORTED 

; 451 0447 1! 

3 $26 0448 1! GETTERMCHAR 

: 45 Roe? 1! 

; 454 50 1 ! Routine Value: 

; 455 0451 1! none 

3; 456 Bb 38 , 7 

; 457 0455 1 ! Signals: 

; 458 0454 1! none 

; 459 0455 1! 

; 460 0456 1 ! Side Effects: 

: 461 0457 1! A new read to the Link is initiated. 
: 46 458 1! If there is an error on the read, a $WAKE is issued to force the 
: 46 8628 1! program to exit. 

3; 464 460 1! 

: 465 461 1 !=- 

; 466 Beeg BEGIN 

: 467 Bee LOCAL 

> 468 464 NEWBUF: REF RTP_BUF; 

; 4669 65 MAP BUFFER: REF RTP_BUF; 

; 4670 466 RETSTATUS = .BUFFERTRTP_10S); 

3; 471 46) IF .RETSTATUS EQL SS$_ABORT THEN ; 
s 67 468 RETURN; ! Link gone - mailbox message will tell why 
: 67 34 QUIT_ON_ERROR; 

: 47h 470 CASE -BOFFERCRTP_FNC FROM 0 TO 12 OF 
; 676 0472 RF_WTD): WRITE( BUFFER); 
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3 
RSKRT - 
youe000 12788 


SHE WME) Wada 


000C 00000 WRITE: .WORD Save R2,R3 : 0496 
grooms ot Be ee tC His 
08 11 Q] E1 BBC i. Peas, 1$ : 
2 DD 0001 PUSHL R + 0533 
0000v CF 01 FB 0 18 CALLS #1, BROADCAST : 
0000" CF D8 6 1A 1$: TSTL SURRENT 10 + 0536 
4c 1 1 BNEQ $ : 
7E 7C 900 CLRQ = =( SP) + 0545 
7E 7C 000 CLRQ. = =( SP) : 
7E 18 OA 3¢ 024 MOVZWL 4(Re) -(SP) : 
1A Ad._-OF:00028 USHAB 26(R2) : 
52 DD 00028 PUSHL  R2 ; 
O000v CF 9F 00 D PUSHAB QIODONE : 
08 a 9F 00031 PUSHAB 8(R2) ; 
3 pp 0034 PUSHL #48 ; 
7E 000000006 00 3¢ 00036 MOVZWL RDWRTCHAN, -(SP) : 
7E D4 0003D CLRL 5 ($P) ; 
000000006 00 OC FB 0003F CALLS #12, SYS$QIO : 
63 20 DO 00046 MOVL RO, RETSTATUS ; 
1A 63 EB 00049 BLBS §RETSTATUS, 2$ ; 
7E D4 0004C CLRL =(SP ; 
000000006 00 01 FB QO04E CALLS #1, SYSSSETAST ; 
000000006 00 01 90 0005 MOVB #1. WAKEFLAG : 
7E 7C 9008¢ CLRQ = : 
000000006 00 02 FB O05 CALLS #2, SYSSWAKE ; 
04 0006 RET : 
0000" CF 52 DO 00066 28: MOVL 2, CURRENTIO : 0547 
04 00068 RET : 0556 
0000" oF 62 O€ 0006¢ 3$: INSQUE (R2), @10QUEUE+4 : 0550 
04 00071 RET : 0552 


; Routine Size: 114 bytes, Routine Base: $CODE$ + 029C¢ 


-Sep-1 


oo READ(BUFFER): NOVALUE = 


GISIVTIV 


Functional Description: 


Perform a read Q10 function to the terminal. 


canting Bn nam a 


Input poreasters: 


FFER = address of the Link buffer 


: ataien’ URRERT TO. 


' Output Parameters: 
none 


OOOOQOoooooooooooooo 


PUPVPVSIVSVSVSISISISISISISISIOI 
SSN NIN NSIS A AAA OAO 


Implicit Outputs: 
. 100 P 


SNS SINS SIA AAA AAAAOAOOMIUIMIUNIVIV 


MEWN $$ O OONOUE WN" OODONAUS WT 


Routines Cailed: 
IND 


0909090909 Co I~ 


QIODONE 


Routine Value: 
none 


WIR SO OONAOULS WN OOONAYV EWN" OOONOUSW 


CoCo CD CD CO“ 


Signals: 
none 


mse 


Se 


Side Effects: 


o000 
oc 
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«sd 
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Se 
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Be Se Be Se Se Se Oe Se Se Ge Se Se Se Be Se Se Ge Ge Ge Se Ge Ge Fe Ge Ge Se Ge Ge Ge See Ge Se Fe Se Se Ge Ss Se Se Se Se Se Se Se Se Se Se Sse Se Sees Sse Sete ees ees 


AOAAAO 
et ed od ed od 


An 1/0 may be queued for Later action. 


BEGIN 
MAP BUFFER: REF RTP_BUF; 
LOCA 


FUNCTION; 
IF - INDDATA NEQ 6 THEN 


! WE ALREADY HAVE INDIRECT COMMAND DATA 
BUFFER RTP 108 = -INDDATA RTP_10S); ' COPY THE [OSB 
RCRTP@1 * INDDATAERTP710¢ 
CHSMOVE IRDDATACRP Lacie VINDDATAERTP.. DAT], ! COPY THE DATA 
INDREAD(); ' LOOK FOR MORE DATA 
meen .BUFFER); i PASS THIS DATA ON 


EN 
IF .CURRENTIO EQL 0 THEN 


IF ¢ sburrentere MOD] AND_RM_RBN) NEQ 0 THEN 
ELS CTION = 1O$_TTYREADALL ! BINARY 


Sep-1984 02:18:51 VAX=11 BL iss-32_v4.0-74 
ies @p=1984 18:06:57 — DISKSVMGMASTERSERTPAD. SRCIRSXRT.B32;1°° 


a 3 
RSXRT 16-Sep-1984 218: VAX-11 Bliss-32 V4.0-742 Page 21 
V04-000 eae ts PRC ees Mm SPE Vt HS e619 pet ee ho 
: 61 610 FUNCTION = 10$_READVBLK; ! NORMAL 
: 61 Ost} RETSTATUS = * 
: 618 P 61g $010 (CHAN = .RDWRICHAN ' READ FROM THE TERMINAL 
; 619 P 061 FUNC = FUNCTIONSRAPHODIF IER .BUFFERLRTP_MODJ) , 
: 620 P 0614 1OSB_= BUFFERCRTP_10SJ, 
: 621 P 0615 ASTADR = QIODONE, 
: 6 : P 0616 ASTPRM = BUFFER 
: 6 P 061 Pl] = BUFFERCRTP OAT) 
> 626 P 0618 P2 = .BUFFERCRTP_RCTI 
> 625 0619 P4 = TERMINATOR(-BUFFERCRTP_MODJ)); 
> 626 0620 QUIT_ON_ERROR; 
: 627 0621 CURRENTIO = BUFFER; 
: 628 06 : UNSOLPEND = 0: ! NO MORE DATA PENDING 
: 629 06 READINPROG = 1; 
: 630 0624 ND 
: 631 0625 : ELSE 
; 63¢ 0626 INSQUE (BUFFER, . IOQUEUEL1)); ! QUEUE IT FOR LATER 
; 63 0627 1 END; 
O1FC 00000 READ: .WORD Save R2,R3,R4,R5,R6,R7,RB : 0553 
58 000000006 00 9€ 90008 MOVAB RETSTATUS, R ; 
57 0000" CF 9E 0000 MOVAB CURRENTIO, R ; 
50 06 AZ D 90006 MOVL INDDATA, RO + 0595 
22 13 0001 BEQL 1$ ; 
56 04 AC DO 90014 MOVL BUFFER, R6 : 0597 
08 A6 08 Ao p0 0018 MOVL (RO), 8(R6) ; 
51 0A Ad 3¢ 9010 MOVZWL 10(ROS, R1 : 0599 
21 06 021 NCL. RI : 
1A AG 1A AO 1 0023 MOVC3 R1, 26(RO), 26(R6) 3 0600 
0000v CF 00 FB 00029 CALLS #0. INDREAD : 0601 
6 DD 00 PUSHL  R6 > 0602 
0000v CF 01 FB 000 CALLS #1, QIODONE ; 
04 00 RET ; 0596 
52 04 ac DO 00036 1$ MOVL BUFFER, R2 ; 960 
$ p O3A TSTL URRENT IO ; 0605 
3 C BNEQ ; 
05 1,=OA 9 E 5 BBC a 17(R2), 2$ $ 0607 
5 A BO 4 MOVL #58, FUNCTION ; 0608 
53 3 bo 28 3: MOVL #49, FUNCTION ; 9619 
C 00048 3$: CLRO 20s =(S : 061 
7E 11. Ad 9A 00040 MOVZBL 17(R2), =(SP) ; 
0000v CF FB 1 CALLS #1, TERMINATOR ; 
0 oD $ PUSHL RO ; 
4 CLRL. =(SP) ; 
7E 16 Ad 3¢ A MOVZWL 3 (Re), -(SP) ; 
1A Ad OOF SHAB 26(R2) : 
5 i) 6 PUSHL R 3 
0000v CF OF PUSHAB Q OBONE : 
A2 9F PUSHAB ; R2) ; 
7E Ad 9A A MOVZBL 17(R2), -(SP) ; 
0000v CF 01 FB ; CALLS. #1 BAPMODIF IER : 
6043 OF PUSHAB (RO) CFUNCTION ; 


; Routine Size: 


181 bytes, 


7E 000000006 
600000006 00 
6 


00000006 09 


000000006 00 


67 
FA A? 
oc 887 


Routine Base: 


1b-sep-1 
14- + 
6 
Dd 
F 
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FM fSOOfDOOD £OOod LO 


Sooowvononomonow 


9C 

H 
ne 4s 

0100 3 iS 
62 OBO 5$ 

084 


SCODES + O030E 


1986 98:06:57 


MOV ZUL angascnan -(SP) 
CALLS , SYS$QI0 

VL RETSTATUS 
BLBS ihe 4$ 


SP 
CALLS #1, SYSSSETAST 
MOVB #1, WAKEFLAG 


CALLS #2, SYSSWAKE 
R 


MOVL 2 CURRENTIO 
M #256, UNSOLPEND 


RE 
INSQUE (R2), @IOQUEUE+4 
RET 


VAX-11 Bliss<-32 V4.0-742 
DISKSVMSMASTER: CRTPAD. SRCIRSXRT. B32: 


ree 
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PAPSAAAAAA OOO 
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poof ole oleleolololoelelo! 


PAAAAAAAA AAO 


Sooooooooooo 
AAA AAAAAAO 


WWIWININWIWIAIWINIIR PI NIWIAIIPNNDD 


— READPROMPT (BUFFER): NOVALUE = 
i 


i Functional Description: 
Perform a readprompt Q10 function to the terminal. 


Calling ame me pei 
Input Pereseters 
BUFFER = eddress of the Link buffer 
Implicit inevees 
CURRENTIO 
INDDATA 
Output Parameters: 
none 


sahiad ™ Suteyess 
UNSOLPEND 
READINPROG 
IOQUEUE mi 


Routines Called: 
READ 
Routine Value: 
none 
Signals: 
none 


Side Effects: 
An 1/0 may be queued for Later action. 


BEGIN 
MAP BUFFER: REF RTP_BUF; 
LOCAL 


FUNCTION; 
IF .INDDATA NEQ & THEN 


' WE HAVE INDIRECT COMMAND FILE DATA 
BEAD T.BUFFER); i GET THE DAT 
RETURN; 
ND; ey 
IF .CURRENTIO EQL 0 THEN 
IF (, BUFFERCRTP MOD] AND RM_RBN) NEQ 0 THEN 
i CTION = 10$_TTYREADPALL | BINARY 
FUNCTION = I10$_READPROMPT; ! NORMAL 
RETSTATUS = 
$010 (CHAN = ! READPROMPT TU THE TERMINAL 
FUNC = FONCT TONSRAPR DIFIER(.BUFFERCRTP_MODJ), 


10SB = BUFFER RTP_IOSJ, 


So 


2 
PAD. SRCIRSXRT. B32;1 


5% 8 


4 


) 


& 


Page 


DISKSVMSMASTER: CRTPAD.SRCIRSXRT.B32; 1 


VAX=11 Bliss-32_ V4.0-742 


19:00:37 
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ELSE 
END; 


POET ONION 


MOPR-DOO— UNTO COD 
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003C 00000 READPROMPT: 


: 0628 
: 0670 
0672 
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YSSSETAST 


Www 6 aww 
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CURRENTIO 


BUFFER, R2 
5$ 


OTR NOME NOUN — OWNININ EL NINE MOWVOMWe 
<ZOr-OMOM << LOU. << NVE LOTOR-OMOF-O 


7E 000000006 


52 
000000006 09 
6 


38 
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7E 
1A 


7E 
000000006 00 


7E 
0000v CF 


7E 


0000v CF 


11 


05 


; Routine Size: 


160 bytes, 


000000006 00 
000000006 00 
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FA AG 
OC 8 B4 


Routine Base: 


1B-sep-1984 02:08:51 ARCH BL ss 


4 30 9 MOVB 
5 C CL 
02 FB 9 CALLS 
RR a. Bl 
ee oa 
4 QO09A RET 
62 OF 00098 5$: INSQUE 
04 0009F RET 


SCODES + 03C3 


a eerene 
#2, SYSSWAKE 


R CURRENTIO 
#256, UNSOLPEND 


(R2), @IOQUEUE+4 


$$-32 V 
STER: RT 


.0-74 
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TPAD. SRCIRSKRT.B32;1°%° ( 
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ROUTINE QIODONE (BUFFER): NOVALUE = 


Functional Description: 
Send a message on the link when a terminal Q10 completes. 
Interpret the ‘EXIT RMT'’ command to exit this program. 
' Calling —— 
standard 
! Input Parameters: 
BUFFER = address of the Link buffer. 


! Implicit Inputs: 
none 

' Output Parameters: 
none 


Implicit syepetee 
READ INPROG 
CURRENTIO 
RETSTATUS 

Routines Called: 
NEXTIO 
FREEBUF 


Routine Value: 


Signals: 
none 


Side Effects: 
If there is an error on the write to the Link, a SWAKE will be issued 
to cause this program to abort. 
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BEGIN 
MAP BUFFER: REF RTP_BUF; 
LOCAL 


COUNT: ; 
IF [BUFFERCRTP 10S) AND 1 THEN 
BUFFERTRTP_STS)] = RS_SFC ! GOOD STATUS 


Tae STS] = RS_FPE; ! ERROR 
BUFFERCRTP_FLG) = 0; 
BUFFERCRIB_TCT 


IF .BUFFERCRTP_FNC) NEQ RF_WTD THEN 
BEGIN ‘TT 


' TT WA EA 
COUNT = .COUNT + .BUFFERCRTP_10CJ; ! ADD THE DATA 
IF (.BUFFERCRTP_MOD) AND (RM“RTC+RM_RNE)) EQL 0 THEN 
N ' CHECK FORTA CARRIAGE RETURN 
IF .(.BUFFER+.COUNT+16)<0,8> EQL 13 THEN 
$Q10W (CHAN = .RDWRTCHAN, ' ECHO CAR-RET 


! MINIMUM MESSAGE LENGTH 


2 
AD.SRCIRSXRT.B32; 
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1984 :18: VAX=-11 Bliss-32 V4.0-742 e 27 
1382 96: 48:2) DISKSVMSMASTER: CRTPAD. SRCIRSXRT.B32; 1 429 (3) 
: 765 P 4 NC = 10$_WRITEVBLK, 
7 P 4 y YPLITTI3), 
; 76 4 2 ); 
: 768 ; END: 
; g i 0 : IF -BUFFERERT P_10C)] EQL 8 THEN ! COULD BE AN EXIT 
: 4A 4 IF CHSEQL (8, BUF FERCRTP_DATI 8.UPLIT(* EXIT RMT')) THEN 
: 77 4 IF cnseoruae BUFFERCRTP. DAT 8,UPLIT(*exit rmt')) THEN 
> 77% 0 4 auif; GET ouT 
: 775 END; 
: 77 IF .BUFFERCRTP_RCT) NEQ UFFERCRTP_IOC] THEN 
: 77 UNT = . COUNT ! ADD TERMINATOR 
: 778 9 ELSE 
: 779 IF .COUNT NEQ 128 THEN 
: 780 0 4 BEGIN ! THIS | 1s A KLUGE FOR RSX 
: 781 0 4 COUNT = COUNT 
: 8 0 4 (BUF FER# + MN ouiiT <0, 8> = 0; |! ADD A NULL 
: 784 6 ; BUFFERERTP RCT3 = sBUEFERCRTP_ 10€]; ! COUNT 
> 785 077 READ NPROG= 0; ! D 
; 786 0778 § 
: 787 0779 IF (¢ suf lca MOD) AND RM_WBT) EQL 0) AND 
; 788 0780 (3 catatP FNC) NEG RF 7RSC) 
; 789 0781 ARENT acy T CURRENT 1/0 HAS COMPLETED 
: 790 O78¢ IF «( BUSTER RIP. FNC] EQL RF_WTD) AND 
: 791 078 T(.BUFFERCRTP_MOD] AND RM_NWC) NEQ 0)) 
: 79 0784 OR (.BUFFERCRTP_10SJ EQL~SS$_ABORT) THEN 
: 79 0785 FREEBUF ( BUFFER) 
: 794 0786 ELSE 
: 795 0787 BEGIN 
: 79% 0788 RETSTATUS = 
: 797 P 0789 $010 (CHAN = .LINKCHAN, ! WRITE TO | 'NK 
: 798 P 0790 FUNC = I0$ wad TEVB & 
: 799 P 0791 10SB = BUFFERCRTP_10$), 
; 800 Pp 0798 ASTADR = LINKWRTDONE, 
: 801 P 079 ASTPRM = BUFFER 
; 80 P 0794 Pi = BUFFERCRTP_FNC), 
; 80 0795 P2 = .COUNT); 
: 804 0796 IF .RETSTATUS EOL SS$_ABCRT THEN 
; 805 0797 RETURN; ! Link gone - mailbox msg will tell why 
: 806 0798 Quit _ON_ERROR; 
; 807 0799 END 
: 808 9800 NEXTIO(: ! CHECK FOR A PENDING 1/0 
; 809 801 END; 
-PSECT $PLITS$,NOWRT,NOEXE,2 
0000000 9030 P 0 P. AAD: .LONG 13 : 
54 4D 52 30 4 49 4 “ASCII «\EXIT RMT\ ; 
4 6D 7 0 74 69 6 003C DAA: eASCII \exit rmt\ ; 


-PSECT SCODES,NOWRT,2 


—_ err Ora ee 


16-Sep-1984 02:18: VAX-11 Bliss-32 V4.0-74 Pp 
rage aRe Rg te es Whee WRALS Fea ccht RD Sacorsxer.03201°%" (oe 


007¢ QIODONE:.WORD Save R2,R3,R4,R5,R6 : 07 ; 
54 04 ac p MOVL BUFFER. RG + 074 ; 
$ 10 AG f MOVAB (RG), R6 + 0744 ; 
0 : AG 5 A BLBC (R4), 1$ + 0743 : 
AG 94 CLRB (R6) + 0744 ; 
03 Ab 1 30 13 1$: MOVE #1, 3(R6) : 074 : 
02 A6 94 00017 2$: CLRB (R6) + 074 ; 
18 AG B4 OOODIA CLRW 4(R4) + 0748 ; 
55 OA po 1 MOVL #10 COUNT : 0749 : 
a at can oled FSS | 
59 CA AG 3 6 MOVZWL 10(R4), RO + 0752 ; 
5 50 f 0 ADDL2. RO, COUNT : ; 
18 01 Ab 00 ¢ BITB 1cR6), #24 : 0753 ; 
26 12 000 BNEQ $ : ; 
0D 10 A544 91 000 3 CMPB =—s-:« 16 (COUNT) CR4), #13 + 0755 : 
1F 12 000 BNEQ 3$ : : 
7E 7C€ 00039 CLRQ =(SP) : 0759 ; 
7E 7C 00038 CLRQ = = (SP) : 3 
01 DD 9005p PUSHL #1 : ; 
0000° cr 9F 0003F PUSHAB P.AAD : ; 
E 7¢ 00043 CLRQ = =( SP) : : 
7E 7D 0004 OVO #48, =(SP) : ; 
7E 000000006 00 3¢ 6 048 MOVZWL RDWRTCHAN, -(SP) : : 
E D4 0004F CLRL (sP) : F 
000000006 00 OC FB 00051 CALLS #12, SYS$QIOW : ; 
08 0A A& Bi 00058 3$: CMPW = s«d10(R4), #8 + 0761 ; 
12 if 0005¢ BNEQ 5$ : : 
0000" CF 1A AG 08 é 20065 CMP CS #8, 26(R4), P.AAE + 0763 ; 
0000" CF 1A Ab 08 23 0006 CMPC3 3 26(R4), P.AAF + 0765 ; 
9 006 4$: BEQL «6s 138 : : 
OA AG 16 Ad Bi 00070 5S: CMPW 3s 22(R4), 10(R4) : 0768 3 
04 13 0007 BEQL «6S ; ; 
55 06 0007 INCL COUNT : 0769 : 
OF 11 00079 BRB 7$ : 
00000080 = &F 5 01 0007B 6$: CMPL COUNT, #128 : 0771 
06 13 0008 BEQL «86s 7$ : 
06 9084 INCL COUNT + 0773 
OF A544 94 000 CLRB 13 ¢COUNT) ERG} + 0774 
16 OA OA AG 80 008A 7$ MOVW 10(R4), 22(R4) : 0776 
0000" CF 4 a CLRB READ I NPROG ; O77? 
09 bb 9 £0 : BS BBS aS, (R6), 9% : 0779 
07 66 1 0009 CMPBs«(RO), #7 : 0780 
4 13 0009A BEQL 4 6-«O9$ ; 
0000" CF pA 9 CLRL CURRENT 10 : 0781 
03 66 1 000A0 9$ CMPB 3S s«(R6), @ : 0782 
4 if A BNEQ 10$ ; 
6 ° A TSTw  (R6) : 0783 
6 19 000A BLSS -:11$ ; 
2c 08 A4 8 A9 10$: CMPW 8(R4), #44 > 0784 
9 12 O00AD NEQ 12% : 
4 DD OOOAF 11$:  PUSHL R4 : 0785 
FC94— CCE 1 Fe B1 ALLS #1, FREEBUF : 
4c 1 B6 RB 14$ ; 


it 
iz 
7E 7C 00088 12$:  CLRQ -=(SP) : 07 
43 C OOOBA CLRQ = (SP) : sede 
3 DD 000BC PUSHL COUNT ; 
05 F BB 000B PUSHR #*M<R4,R6> : 
00 v CF OF 000C PUSHAB L INKURFDONE : 
4 9F 000¢ PUSHAB 8(R4) : 
6 dD 000¢ SHL #48 : 
7E 000000006 2 3¢ i MOV ZWL LINKCHAN, -(SP) : 
000000006 F D CALLS #12, SYS$QI0 : 
ittdaitdit 09 D D MOVL RO, RETSTATUS : 
C p E CMPL = RO, #44 t 0796 
E Bea. «=s«d15$ : 
1A E 0 E BLBS RO, 14$ : 0797 
000000006 f eS ita rape EALtS og ei : 
000006006 88 0 $0 a9t§ MOVE #1. WAKEFLAG : 
E C OOOFA cLRQ se : 
000000006 00 0 FB dor¢ CALLS #2, SYSSWAKE ; 
0000v CF 00 FB ett 14$: CALLS #0, NEXTIO + 0800 
04 00109 15$: RET + 0801 
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ROUTINE LINKWRTDONE (BUFFER): NOVALUE = 
Functional Description: 
Free the Link buffer when a write to the Link completes 


Calling Sequence: 
standard 


‘C0 C9 GD CD 00 CD 0D CD CD 


Input Parameters: 
BUFFER = address of the Link buffer. 


Implicit Inputs: 
none 


Output Parameters: 
RETSTATUS 


Implicit Outputs: 
none 
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8 
8 Routines Called: 
$e ; F REEBUF 

836 8 Routine Value: 
837 8 none 
838 8 
839 8 Signals: 
840 8 none 
841 8 
Hk 6 Side Effects: 
84 8 If there was an error on the write to the Link, a SWAKE is issued to 
B44 8 cause the program to abort. 
845 8 
846 837 -- 
847 838 BEGIN 
848 839 MAP BUFFER: REF RTP_BUF; 
849 840 RETSTATUS = .BUFFERTRTP_10S3; 
850 841 IF .RETSTATUS EQL SS$_ABORT THEN 
851 Hk RETURN; ! Link gone - mailbox msg will tell why 
$26 84 QUIT_ON_ERROR; 
85 844 FREEBUF T. BUFFER); ! WE NO LONGER NEED THE BUFFER 
854 0845 END; 


000C 00000 LINKWRTDONE: 
- WORD 


Save R2,R3 : 0803 
53 000000006 00 3 00 MOVAB RETSTATUS, R3 : 
4 A p 0 MOVL BUFFER, Ro > 0840 
: 8 A MOVZWL 8(R2), RETSTATUS : 
D 1 MOVL RETSTATUS, RO ; 
2c D 14 CMPL = RO, #44 : 
4 1 17 BEQL = 2$ : 
1A 0 €8 00019 BLBS RO, 1$ > 0842 
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62 bytes, Routine Base: S$CODE$ + 056D 


; Routine Size: 


K 4 
16-Sep-1984 02:18: X-11 Bliss-32 V4.0-742 Page 32 
-000 12-808- 1382 96: 48:2) SKSVMSMASTER: CRTPAD.SRCIRSXRT.B32;1 ° 145 
3 $ *$ 1 ROUTINE UNSDATENBL(BUFFER): NOVALUE = . 
3 4 : 'e¢ ’ 
3 c : 3 
3 8 i 1 ! Functional Description: 3 
3 rs 9 } Enable or disable unsolicited data to the RSX system. : 
3 § § 1! Calling Sequence: : 
; 86 1! Standard ; 
; 864 4 1! ; 
3 See 855 1 ! Input Parameters: 3 
; r] 529 : BUFFER = address of the Link buffer : 
3 He O85 1! Implicit inputs: 3 
; 869 +H 1! UNSOLPEND r 
3 4 0 0860 1! INDDATA 3 
; 871 0861 1! 3 
3 Hes Bag 1 ! Output Parameters: 3 
; 4 0865 1! none 3 
3 874 0864 1! 3 
; 875 0865 1 ! Implicit Outputs: 3 
; 876 Be08 1! UNSOLENBLFLG 3 
3; 877 0867 1! : 
; 878 0868 1 ! Routines Called: § 
; 879 +494 1! TERMMBAMSG 3 
; 880 0870 1! F REEBUF s 
; 881 0871 1! READ 3 
; 88 1h 1! 3 
; #88 0875 1 ! Routine Value: 3 
3; 884 0874 1! 3 
; 885 i & gee 3 
; 886 0876 1 ! Signals: 3 
; 887 0877 1! none 3 
; 888 0878 1! 3 
; 889 0879 1 ! Side Effects: ‘ ; 
; 890 0880 1! If unsolicited input is enabled, any pending data is read. 3 
; 891 0881 1! 3 
; 89 S36 1 !<- 3 
; 89 88 BEGIN 3 
3; 894 884 MAP BUFFER: REF RTP_BUF; é 
3; 895 0885 LOCAL : 
; 896 0886 NEWBUF: REF VECTOR; 3 
é 144 t4 IF sal 35) NEQ RM_TUI THEN : 
; 899 0889 IF .INDDATA NEQ 0 THEN 
; 900 4 ' THERE IS INDIRECT FILE DATA 
: 901 089% 4 NEWBUF = GETBUF(); ' GET A SUBSTITUTE BUFFER 
; 90 Bane 4 CHSMOVE (40 .BUFFER, .NEWBUF ) ; ! COPY HEADER + SOME 
: 90 0893 4 READ (.NEWBUF); (GET IT 
: 904 a END; 
3 905 895 UNSOLENBLFLG = .BUFFER; ! ENABLE 
3; 906 bs IF .UNSOLPEND NEQ 0 THEN 
3; 907 89 TERMMBXMSG(); ! DATA ALREADY PENDING 
; 908 98 END 
3; 909 a9 ELSE 
; 910 900 EGIN ' DISABLE 
: 911 901 FREEBUF (BUFFER); ' NO LONGER NEED BUFFER 
: 912 902 IF .UNSOLENBLFLG NEQ 0 THEN 
| 


4 
1$aSep-1984 OB:18:51  VAR-T Bise=32 ve0c742 page 


4 BEGIN 
4 FREEBUF (.UNSOLENBLFLG); ' UNSOL DATA BUFFER 
4 UNSOLENBLFLG = 0; 
END; 
END; 
END; 
01FC 00000 UNSDATENBL: 
.WORD Save R2,R3,R4,R5,R6,R7,RB : 0846 
58 0000" CF 4 9900 MOVAB UNSOLENBLFLG, R8 : 
56 04 AC DO 0000 MOVL BUFFER, R6 + 0887 
80 8F 12 A6 91 0000 CMPB  =s«18(R6). #128 : 
26 13 0001 BEQL 2$ : 
10 ag D 001 Zt, J ROOATA + 0889 
13 13 0001 BEQL 4 : 
FBC2 CF 90 FB 00017 CALLS #0, GETBUF + 0891 
57 20 001¢ OVL. RO. NEWBUF : 
67 66 28 28 OOO1F movc3 #46, (R6), (NEWBUF) + 089 
DD 00023 PUSHL he wbur : 089 
FD39 CF Q FB 00025 CALLS READ é 
£68 6 DO 0002A 1$: OVL 40 UNSOLENBLFLG + 0895 
06 AB 9 90 D TSTB NSOLPEND + 0896 
1B 13 00030 BEQL : 
O000V CF 00 FB B00 36 CALLS 9, TERMMBXMSG : 0897 
04 00 RET : 0887 
56 DD 00038 2$: PUSHL FF. : 0901 
FBC3 CF 01 FB OO03A CALLS #1, FREEBUF : 
50 68 00 003F MOVL UNSOLENBLFLG, RO : 0902 
09 13 00042 BEQL : 
50 DD 00044 PUSHL + 0904 
FBB7sCF 01 FB 00046 CALLS FREEBUF : 
68 D4 0004 CLAL Gngol CuBr eeG + 0905 
04 b00cp 3$: RET + 0908 


; Routine Size: 78 bytes, Routine Base: SCODES + OSAB 


Liss-32 V4.0-742 Page 3 
MASTER: CRTPAD.SRCIRSXRT.B32; 1 (12) 


'3; 920 909 1 ROUTINE TERMMBXMSG: NOVALUE = 

; 921 919 1 S44 

.. 3 ¢ 911 171! 

; F 316 1 ! Functional Description: 

: 924 915 1! Handle messages from the terminal mailbox indicating unsolicited data 
; 925 0914 1! or hangup. 

; 926 0915 1! 

3 Per B38 1! Calling + = oe 

; 928 a4 1! standard 

; 929 2i8 1! 

; 950 0919 1 ! Input Parameters: 

s 93) 0920 1! none 

; 9 ; 8 , #3 

; 9 9 § 1! Implicit yest 

; 934 09 1! READ INPROG 

: 935 0924 1! UNSOLENBLFLG 

> 936 0925 1! ATTACHFLAG 

; aee 0926 1! SINGLEFLAG 

; 938 0927 1! 

; 939 0928 1 ! Output Parameters: 

; 940 0929 1! none 

: 941 0930 1! 

: 94 0931 1! Implicit Sutpute: 

: 94 ba8s 1! UNSOLENBLFLG 

> 944 0933 1! SINGLE INPROG 

3 945 0934 1! UNSOLPEND 

3; 946 0935 1! 

; 947 o338 1 ! Routines Called: 

: 948 0937 1! GE TBUF 

3: 949 0938 1! 

; 950 0939 1 ! Routine Value: 

3 9) 0940 1! 

; 0941 1! 

; 95 0942 1 ! Signals: 

3 954 0945 1! none 

; 955 0944 1! 

; 956 0945 1 ! Side Effects: 

3; 957 » 0946 1! In the case of unsolicited input, a read to the terminal is initiated 
; 958 0947 1! if either unsolicited input or single character mode is enabled. A 
; 959 0948 1! new read to the terminal mailbox is also initiated. 

; 960 949 1! In the case of a hangup, a SWAKE is issued to cause the program to 
: 961 950 1! abort. 

3 208 0951 1! 

: 96 326 1 !-- 

: 964 95 BEGIN 

: 965 954 MAP UNSOLENBLFLG: REF VECTOR; 

: 966 0955 LOCAL 

3; 967 3928 NEWBUF: REF VECTOR; 

; eee 443 IF .TERMMBXDATACO) EQL MSG$_TRMUNSOLIC THEN 

3; 970 98 IF .READINPROG EQL 0 THEN 

; 6fT 960 4 

; 97. 961 4 IF (.UNSOLENBLFLG NEQ 0) AND 

; 97 306 4 (C.ATTACHFLAG OR .SINGLEFLAG) EQL 0) THEN 
3 974 830 2 BEGIN 

3; «975 964 READ ( .UNSOLENBLFLG); ' READ IT 

3; 976 0965 5 NEWBUF = GETBUF(); ! GET ANOTHER BUFFER 


N 4 
16-Sep-1984 02:18: VAX-11 BLiss-32 V4.0-742 Page 35 R 
000 ae Haat) a aed mm Vet tet Hed te ty ieee oY Ba ET V 

: 977 96 NEWBUF(4] = .UNSOLENBLFLG(4); 

; 78 0367 Maen ct = + UNSOLENBLELGES ; 

; 379 368 UNSOLENBLFLG = ,NEWBUF; 

: 981 396 i ELSE IF .SINGLEFLAG NEQ 0 THEN 

; 98¢ 971 BEGIN | READ A SINGLE CHARACTER 

: 98 306 RETSTATUS = 

: 984 P 097 $010 (CHAN = .ROWRTCHAN, 

> 985 P 0974 FUNC = 10$_READVBLK+I10$M_BINARY+ 

: 986 P 0975 MAPRODIFIER(. SINGCEFLAGLRTP_MODI), 

: 987 P 0976 10SB = SINGLEFLAGLRTP_10S), 

: 988 P 0977 2 ASTADR = ONECHAR 

: 989 P 097% ASTPRM = » SINGLEFLAG 

: 990 P 0979 3 Pi = SINGLEFLAGLRTP_DATJ, 

; 991 0980 P2 = 1); 

: 99 0981 5 ERROR; 

: 99 0982 5 SINGCEINPROG = 1; 

: 994 0983 5 UNSOLPEND = 0; ! NO MORE DATA PENDING 

> 995 0984 5 ND 

: 996 0985 4 ELSE 

: 997 0986 4 UNSOLPEND = 1; ! UNSOLICITED DATA PENDING 

> 998 0987 3 END; 

: 999 0988 RETSTATUS = 

: 1000 P 0989 $Q10 (CHAN = .TERMMBXCHAN, ! DO IT AGAIN 

> 1001 P 0990 FUNC = 10$_READVBLK, 

: 1008 P 0991 ; ASTADR = TERMMBXMSG, 

: 100 P 099 P1 = TERMMBXDATA, 

: 1004 0993 3 P2 = 8); 

> 1005 0994 3 QUIT_ON_ERROR: 

> 1006 0995 3 END 

: 1007 0996 : ELSE 

> 1008 0997 QUIT ! HANGUP = SO QUIT 

> 1009 0998 1 END; 


001C 00000 TERMMBXMSG: 
- WORD 


Save R2,R3,R4 ; 0909 
54 000000006 99 9E 0000 MOVAB SYS$QI0. R& ; 
53 000000006 0 9€ 0000 MOVAB RETSTATUS, R3 ; 
52 0 09" CF 9€ 0001 MOVAB UNSOLENBLFLG, R2 ; 
01 F Ae 8} 01 CMPW TERMMBXDATA, #1 : 0957 
1 BEQL 1 3 
0097 31 01B BRW 5$ : 
07 A O1F 1$: STB READ INPROG + 0959 
51 6 p 3 MOVL NSOLENBLFLG, R1 : 0961 
50 04 A2 9A p 8 MOVZBL ATTACHFLAG, R + 0962 
50 8 A £8 C Bit SINGLEFLAG, R ; 
1 1 ke. 3 
1 oD FusHL RT > 0964 
F CoC CF 1 FB CALLS #1, READ ; 
FBS cf 9 FB S CALLS #0. GETBUF > 0965 
1 62 D E MOVL § UNSOLENBLFLG, R1 > 0966 


Be 
RSXRT 16- 50 8: VAX-11 Bliss-32 V4.0-742 Page 36 
v04=000 14- Sep -1382 ¢: be ef DISKSVMSMASTER: CRTPAD. SRCIRSXRT.B32; 1 a3 
10 A 10 Al 70 0 41 MOVQ 16(R1), 16(NEWBUF) : 
6 50 p 46 MOVL NEWBUF , UNSOLENBLFLG + 0968 
40 1 4 BRB 4 : 361 
50 08 Ae bg O48 2$ HOVE SINGLEFLAG, RO : 0970 
3 ye 098 CLRO = = (SP) + 0980 
7E 7C 00 CLRQ = =(SP) : 
01 pp 005 PUSHL #1 : 
1A A0 F 0 5 PUSHAB 26 (RO) : 
50 0D 0005 PUSHL R : 
0000v CF 9F 0005¢ USHAB ONECHAR : 
08 Ag of 960 PUSHAB 8(RO) : 
7E 11 AO 9A 0006 MOVZBL 17(RO), <-(SP F 
0000v CF 01 FB 00067 CALLS #1, MAPMODIFIER : 
71. AO 3 006C PUSHAB 113(RO) ; 
7E 000000006 90 3¢ O06 MOV ZL RDURTCHAN, -(SP) : 
64 O¢ FB 00078 CALLS #12, SYS$QI0 : 
63 0 DO 00078 OVL RO RETSTATUS ; 
2E 63 £9 S007 BLBC  RETSTATU ; 
05 Ad 01 BO 00081 MOVW oT, SINGLE INPROG + 0982 
04 11 00085 BRB 4$ + 0970 
06 A2 01 90 00087 3$: MOVB #1, UNSOLPEND + 0986 
7E 7C 00088 4$: CLRQ 3s = (§P) : 0993 
7E 7C 0008 CLRQ = (SP) ; 
08 DD 0008F PUSHL #8 ; 
F8 A2 9F 00091 PUSHAB TERMMBXDATA ; 
7E D4 90094 CLRL = = (SP) ; 
FF66 CF 9F 00096 PUSHAS TERMMBXMSG : 
7E 31 7D B009A MOVQ #49, -(SP) F 
7E 000000006 00 3¢ 9909p MOVZWL TERMMBXCHAN, (SP) : 
64 o¢ FB O00A6 CALLS H2, SYS$QI0 : 
63 0 DO 000A9 MOVL RETSTATUS ; 
19 63 EB OOOAC BLBS RE Of ATUS, 6$ : 
7E D4 OOOAF S$: CLRL } + 0996 
000000006 00 01 FB 00081 CALLS #1, SYSSSETAST : 
000000006 00 oi 30 S008F move " pWAKEFLAG ; 
000000006 00 02 FB 000C1 CALLS #2, SYSSWAKE ; 
04 000C8 6$: RET ; 0998 


3; Routine Size: 201 bytes, Routine Base: $CODES + O05F9 
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! DATA ADDRESS 
0004 00000 BROADCAST: 


DCSTDESC, 


! COUNT 
YDESC); 
N UP 


acre 


NOVALUE = 
Issue a broadcast function to the terminal. 
_BUF ; 
E 
R 
D 


BUFFER = address of the Link buffer 
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RSXRT 16-Sep VAX-11 Blis $e3e V4.0-742 8 
vbe-000 1228 Sep 71382 98: Og: 3} DISKSVMSMASTER:CRTPAD. SRCIRSXRT.B32;1 3 
000000006 00 9F 1 PUSHAB TTYDESC ; 
C a F 1 PUSHAB BRDCSTDESC ; 
ented’ Ye 08 g fe iF CALLS #4, SYSSBRDCST ; 
A B 6 MOVW RO, B(R2) : 
52 DOD O002A PUSHL 3 1041 
FD70—sCF 01 FB Qu02C CALLS #1, QIODONE : 
04 00031 RET : 1042 
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Routine Base: S$CODE$S + O06F4 


111 bytes, 


; Routine Size: 


) 
RSXRT 18-se $ep-1984 8: VAX-11 Bliss-32 V4.0-742 Pa = 
¥Ou~000 8opn Tbe PSibers  IEKbUMCMAStERcCATPap Skcansurt.es2s1em c14) | 
711 1 1 ROUTINE CNTRLYAST: NOVA 
i oe Be Mrecutrs ance 
: 11 1095 1! Functional Description: 
; 1119 ! 2 } Handle the AST indicating that a control-Y was typed on the terminal. 
1118 193 | Calling Se manees 
+ 1115 1101 1! Input Parameters: 
HAY ee Bee 
: 111 1104 1! Implicit : 
: 118 1105 1 | eas 
+ 1121 11 1 | Output Parameters: 
: 11 ¢ 1108 7 none 
: 11 1109 1: 
> 1126 1110 1 ! Implicit Outputs: 
Be ae | eaten 
: 11 § 143 1 ! Routines Called: 
: 1158 Wis 43 sey 
: 11 1116 1 | Routine value: 
fe dt 
: 11 § W19 1 | Signals: 
: 1138 13) 1 i sven 
: 11 11 : 1 | Side Effects: 
3 1 i z } A SWAKE will be issued to abort the program. 
; 1120 11523 483 BEGIN 
+ 1141 1127 $ QUIT; 
> 1142 1128 1 D; 
0000 00000 CNTRLYAST: ; ae or 
° ave no n Py 
7E D4 00002 ciel = . + 1126 
00000006 1 FB 0004 CALLS #1, SYSSSETAST : 
00000006 1 90 000 MOVE #1. WAKEFLAG : 
7¢ 0001 CLRQ. 2 = (§P) : 
000000006 00 02 FB 00014 CALLS #2, SYSSWAKE : 
04 0001B RET > 1128 
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5 
1-5 VAX-11 Bliss-32 V4.0-742 44 R 
1 i 1382 9¢: 48: 2} DISKSVMSMASTER: tk TPAD. SRCIRSXRT.B32; 5578 18) ve 
53 $3 OF 9 REMQUE (LOBUF) 10BuUF : 1193 
F9BBCéF 4 FB CALLS i. FREEBUF : . 
50 04 ac 0 f 4$: MOVL BUFFER, RO : 1199 
12 AO 94 CLRB (RO) : 
7E 7¢ 0007¢ CLRQ 2s = (SP) : 1206 
43 € 9007 CLRO 48?) : 
0 bb PUSHL # : 
0 8 bb PUSH, RO 
FD63 CF oF 00 PUSHAB L INKWRTDONE ; 
$5 4 $08 PUSHL is” : 
7E 000000006 a9 C 0090 MOVZWL LINKCHAN, -(SP) : 
E 04 0009 CLRL = : 
000000006 00 OC FB 00099 CALLS #12, SYS$QI0 : 
04 000A0 RET : 1207 


; Routine Size: 161 bytes, Routine Base: SCODES + 077F 


<D 


9bbeig) WTS ebinGMAStER sca TPAD SecaRsueT.03290% «195 


D344 


p 
ROUTINE MAPMODIFIER(RSXMOD) = 


oo 
~Oco 


Functional Description: 
Convert RSX function code modifiers to VMS format. 


enki ine Bot me ype 
Input perenstere 
RSXMOD = RSX modifiers 
Implicit Inputs: 
none 


St tt st 


Output Parameters: 
none 


Pee 


» 
GAAS , ak a uo 


Implicit Outputs: 
none 
Routines Called: 
none 
Routine Value: 
VMS function code modifier 


Signals: 
none 


Side Effects: 
none 


DPA UII Ee 


VMSMOD : 
VMSMOD = VTOSR I RWoE CHO: 
IF (.RSXMOD AAD RM_RNE) NEQ 0 THEN 
MSMO "ONSMOD* [OSH ~-NOECHO; 
ee LVSMOD) ; 


a ee eee ed ee ee ee ee ee ce ce et cc ee ce ce ee ee ee ee ee ee ee ed 


PROPIPINININPYPONINIPYNIPINIPINIPIPYR PIPPI PIPIPUPINIPYIPIPOPINIPPIPOPIPPIPUPIPUPUPD 


SRL ELLE S 
PEI III II a a aa tk i kk kt at tt tt tt 


DONA WN O OONAULS WIN @OOONOAU ES WN (OC ODNOUS WO 


aaa kk a at ak tk a at st ot a 9 a a 1 a 8 a a a a 


0000 00000 MAPMODIFIER: 
WORD 


‘ Save nothin : 120 

50-1000 4 3¢ 0000 HOVZWL #4096, VMSMOD : 154 
04 C T 90007 BBC #36, RSXMOD, 1% + 1246 
40 MOVAB 64(RO), VMSMOD > 1247 
be OOOOF 1$: RET > 1249 


Routine Size: 16 bytes, Routine Base: S$CODE$ + 0820 


: 
RSKRT b-sep-1984 VAX=11 BLiss-32_V4.0-742 , 
vb4-000 Sep 1984 18:00:87 — DESKSVMSMASTERSCRTPAD. SRCIRSKRT.832; 10%" (188 


pout ioe ATTACH(BUFFER): NOVALUE = 
Functional Seeer see ions 
Handle the RSX attach and detach functions. 


Calling Sequence: 
standard 


Input poceseters: 
BUFFER = address of the Link buffer 


seth’ | UmeAT IO 


= 
PITIPIPIPONOPUPENoPufroenmnrorrnorn 
OOOO NAINA NNO OO 
WN OOONOUS =SS25 


POPOPIPIPIPOPIPINIPYIPININIPIPIPIPINIPYNIPIPIPUPIPIPIPIPUNPIPINIPYD 
BNI SIN NIA AAA AA AAA AOUMIMIMIUIMIVIVIVIV 
owe MEAN $0 OODNOAOUE ARO OONAUSWN—O 


3 1 1 ; 
3 3 1 1! $ 
3 7 1 1 / 3 
| 1 1! 3 
3; 1 1 1! ; 
s 3 1 1! : 
3; 7 1 :.s 3 
| 1 1! 3 
s 1 1 1! F 
: ¥ 1 1! F 
3 7 1 1! 3 
3 1 1 1! $ 
3: 1 1 ££ $ 
gs 3 1 1! : 
3 3 1 1! GNSOLP END : 
3 1 1 1! 3 
3; 1 1 1 ! Qutput Parameters: : 
3: 1284 1 1! none $ 
: 1285 1 1! F 
3: 1286 1 1! snp tats Outputs: ; 
3; 1287 1 1! ATTACHFLAG é 
; 1589 i i i Routi Called 
3 1 !' Routines Calied: 3 
3; 1290 1 1! TERMMBXMSG : 
3: 1291 1 73 FREEBUF ; 
3; 129 1 1! NEXTIO 3 
3: 129 1 1! $ 
3 1294 1 1 ! Routine Value: . 
3 1336 : ! none : 
3; 1297 1 1 ! Signals: : 
3; 1298 1281 1! none $ 
5 94 1 Ht 7s 3 
3; 1300 1283 1 ! Side Effects: PF 
3; 1301 1284 1! The request may be queued for later action. 3 
; 12 nH ! : If the detach reenables unsolicited input, pending data may be read. : 
3 1304 1589 1 !-- 3 
: 1305 1288 3 
3 3 4] 1289 MAP BUFFER: REF 7 BUF ; 3 
: 1 07 30 IF ~ CURRENTIO EQL 0” THEN ; 
; 1309 1 38 IF .BUFFERCRTP_MOD] NEQ RM_DET THEN : 
3: 1310 129 ATTACHFLAG = 1 3 
3 1311 1294 ELS 3 
3 1 \¢ 1295 4 3 
3 131 1598 4 ATTACHFLAG = 0; 3 
3 133 1297 4 IF «. UNSOL PEND NEQ 0) OR (. — nee 0) THEN : 
3 1315 1298 A ALREADY PENDING 3 
3 ¥ 1 1299 ittmeueee. MSGS_ TRIUNSOL TC. 3 
3; 131 1300 TERMMBXM $G6() : 
ee \8 1301 4 END; : 
: 13) 1 8 3 
3 1320 1 FREEBUF ('B BUFFER) ; : 
: 1321 1304 NEXTIO(); ' CHECK FOR A PENDING I/0 3 
2 J ¢ 1305 END 3 
s § 1306 ELSE 3 


- XRT 16- se-1984 9: 43: 3} VAX-11 Bliss-32 V4.0-742 Page 47 


a 
-000 14-Sep-1 DISKSVMSMASTER: CRTPAD. SRCIRSXRT.B32;1 9° 18) 
: 13246 1307 INSQUE (BUFFER, . 1OQUEUEL1)); ' QUEUE IT FOR LATER 
$ 1338 1304 ; END; 
0004 00000 ATTACH: .WORD Save R2 : 1250 
52 0000' cF 9 999 MOVAB ATTACHFLAG, R2 ; 
08 Ae d5 00 TSTL CURRENT IO + 1290 
50 4 at B00e MOVL ; FFER, R : 1292 
80 8F o ng 8 iy CMPB ae B28 : 
05 13 901 BEQL = 1$ : 
62 01 90 0001 MOVB #1, ATTACHFLAG + 1293 
15 11 OOO1A BRB 3$° : 
62 94 0001C 1$: CLRB = ATTACHFLAG + 1296 
02 A2 95 OO01E TSTB NSOLPEND : 1297 
05 (1 0021 BNEQ : 
OC A2 D5 00023 TSTL ippoas : 
09 13 000 6 BEQL $ : 
F6 A gi BO 00028 2$: MOVW TERMMBXDATA : 1299 
FD98 ~=sCF 0 FB 0002C CALLS #0" TERMMBXMSG + 1300 
04 AC DD 00031 3$: PUSHL BUFF FER + 1303 
F944 CF 01 FB 00034 CALLS FREEBUF ; 
0000v CF 00 FB 00039 CALLS 50° NEXTIO + 1304 
04 0003 R ; 1290 
14 B2 04 BC OE 0003F 4s: INSQUE @BUFFER, @1OQUEUE+4 + 1307 
04 00044 RET : 1308 


; Routine Size: 69 bytes, Routine Base: SCODE$S + 0830 
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48 
(19) 


Page 


= 
es 
N 
~m 
ao 
- 
ra 
a 
= 
wn 
i. 4 
QR 
(=) 
Na 
ww 
Nm «© 
‘a 
oact 
a 
wre 
>a 
ws 
Ne 
ma Oo w 
tw 4 ” 
nr _ = 
aw a 
<< ”" 2 2 
~= a w st 
aw w a 
= _ w > 
-> oe > a wd 
-—-A <= a oOo _ 
ie 4 <= <« = Zz 
=xwW <= w as 
<= = «= a (. 4 
>a ~~ ad w « 
© x _ — ] 
a=] ws vu uw 
CJ) —_ << —4 
ao oOo - « _ 
mw we o zw 2 
oe oe wn x wn ww 
ov -— io ae —_ - 
-o ws ws 
oo of ee a | —aO 
am - o 2 o2 
on . 4 *e 
@ . a & —w eo 
wv aod La) ao w MOwo 
ooo o c@ w =z< 
oo i = ow --z we 
cm 2 ~ w —_ Be 
‘6 — ~~ @ YW = @ dad 
aa a ec (7) <« oo. 
Woe ~ ee — +s +e ” oOo 
MM rs) (ian —- I 
ee @ ce on = wow ao of 
zovyr — a or co uw & ww 
-— eo ol a wow “se ° 
= ia e@ oe JSswk - Ow 
v | —~To =z @o2x Zou ss 
2 o 4 * @Wee we Dvto 
“ CY = ozo OA @ 
~ = o nm Nee Zu 
uw ao c -©@ a wc ll Dw 
> c - = So vVuaw @OQwawo 
of - _ ow z &= «Irs ° Ji 
=< w ow cow 'iwao 2 ~o 
= ve Sc wrt a@ wn Ww Zz & 
oO »< <= ew S>—- —§ _ w2 a > ww 
= ” ca PF @ a2z250 — zaQuw 
a coz i weno « © “us © Ose 
oo os aco f£uoZz "eo Ow za 
= @ fo) oom i www 22 wee Ss 
a oom’ 2c eo «One Dw Ou Mw 
uw ca ) - Co u 
mo oe 7) ~vo uw 23 
“ -o a oc ive} @ 
J er Ss e@ @Zoz - 
@ av ao] o a = as 
~~ op ee -O oO w or) ~ ore ww 
Leu} =] a ne ee < —_ “no oD on ezua ~~ 
— ¥.c Vv . “aooa @® ~<a 0M or wwoe- a 
oOo "e6& cU OG #2 & S42 OF oe Ss 4 
Pd a ow. Sewe «€6©@ Quu —x<Xuw @ “Coe we 
_ eae 358 @a2 azaw Ee wa —~@M> 3 now =— 
” — ow ew Cw eo a abad ezta — ~t@ ZzQow 
a ~~ eC 86s —f£OU te OVO vYEw ae oe v VU _ . 
< eo YS tu ZnvVw2e ec zum aw >c c #@ oan 
w cc ~~ 85 #52 A240 #2 vw ovo + eofe ws 
= ow OW AD -vwDmM Cc OND OFe GCC HC eee ozo 
- C_- S) aw S) c c al w 
uw coe -— co - oo | old - - @ 
4 Vv _ Ss — a ~~ cad oe c a 
_ c —_ a a aad a > a oa a) 
-  ] @ Cc € € ° o ad - 
2+ vu _ Cond oO _ « a ” ” a 
os § 
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IOI OTIC OI OIC OPP PPP EF ST ST WT TT WT OT AT FINNS AES ES 
al lh al ah lal lhl lh lhl lh nll lh lh ah Lah Ll Lah dnl nh ah anh Lah Lah undies Ld ach | ch nh Lah oc eh ak ll) | a] 


EL 


3 DRO — WIT AOR DPRO KUM TF NOR. ODO — UM TM OR. ODOR MUM TMNOR. OBOK MUM TN OR OD O-1UM 


Ac ELL LF LLL 


a> eee et eee eee ee eT eT eee et et eT eT es 2) 2 2 TY eee ee Fe ee Fe FS FS Fe Ee 6G FS FR FE FS FH FS FS FS SH FH HSE *S FES FS *S HD 


6 
Eri (GUESS) WMddARAR 
s) 


1 
1 p-19 
1 


: 1385 1367 NEXTIO(); IS ANYTHING ELSE QUEUED 
: 1 86 1 68 END 
: 138 1 $ ELSE 
: 1388 1370 INSQUE (BUFFER, . 1OQUEUEL1)); ! QUEUE IT FOR LATER 
: 1389 1371 END; 
0004 00000 READSINGLE: 
«WORD Save R2 
52 0000" CF 43 000 MOVAB SINGLEFLAG, R2 
04 Ae D5 0000 TSTL CURRENT IO 
38 1 OO0A BNE $ 
50 04 AC 00 0000 MOVL BUFFER, RO 
11 Ag 95 0001 TSTB —- 17 (RO) 
13 19 0001 BLSS 2$ 
62 04 AC p0 001 MOVL §§ BUFFER, SINGLEFLAG 
FE Ag 95 00019 TSTB —_—~ UNSOLPE 
05 13 0001C BEQL =so18 
FD61 = CF 00 FB bO01 CALLS #0, TERMMBXMSG 
FE A2 94 00023 1$: CLRB _—: UNSOLPEND 
16 11 00026 BRB 4$ 
04 AC DD 00028 2$ PUSHL BUFFER 
F908 ~=sCF 01 FB 00028 CALLS #1, FREEBUF 
FD Ag 95 000 0 TSTB SINGLEINPROG 
07 12 0003 BNEQ 3 
62 OD 90035 PUSHL SINGLEFLAG 
FBFC OCF 01 FB 00037 CALLS #1, FREEBUF 
62 D4 0003C 3S: CLRL SINGLEFLAG 
0000v CF 00 FB O003E 4$: CALLS #0, NEXTIO 
04 0004 RET 
10 B2 04 BC OE 00044 S$: INSQUE @BUFFER, @10QUEUE+4 
04 00049 RET 


; Routine Size: 74 bytes, Routine Base: S$CODE$ + 0875 


; 1390 1372 1 
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-1984 02:18: VAX-11 Bliss-32 V4.0-742 Page 50 RS: 
71882 9g: 8:3) DISKSVMSMAS TER: CRTPAD. SRCIRSXRT.632: 1 9° (20) v0: 


ROUTINE ONECHAR (BUFFER): NOVALUE = 


:] 

94 

95 Functional Description: 

a8 Handle the completion of a single character mode read. 
98 Calling Sequence: 

99 Standar 


Input Parameters: . 
BUFFER = address of the Link buffer 


SRANVLS 


SINGLEF LAG 


3 1373 1 

3 7 1374 1 

3 1 1375 1! 

3 3 1 § 1! 

3 7 1 1! 

3: 1 1 $ 1! 

3 1 1 1! 

3 % 1380 1! 

3 14 1381 1! 

3 14 1 ¢ 1! 

3 14 1 1! 

3 14 1384 1! 

3 14 1385 1 ! Implicit Inputs: 

3 14 1386 1! 

3: 1406 1387 1! 

3; 1407 1388 1 ! Output Parameters: 

3: 1408 1389 1! none 

3: 1409 13 Be le 

3 1410 1391 1 ! Implicit Outputs: 

3 1411 13 ¢ 1! SINGLE INPROG 

3 1e16 13 1! 

3: 141 13 4 1 ! Routines Called: 

3: 1414 1395 1! QIODONE 

3 1415 1396 1! FREEBUF 

3 1416 1397 1! 

3 1417 1398 1 ! Routine Value: 

: 1418 1399 1! none 

3 1419 1400 1! 

3 1420 1401 1 ! Signals: 

3 1421 1306 , none 

3 O56 1403 1! 

: 142 1404 1! Side Effects: 

3 1424 1405 1! none 

: 1425 1406 1! 

: 1426 et 1 !-- 

: 1427 1408 2 BEGIN 

: 1428 1409 2 LOCAL 

3 1oer 1410 2 NEWBUF: REF VECTOR; 
: 1430 1411 2 MAP BUFFER: REF VECTOR; 

3 1431 1e\¢ § SINGLEINPROG = 0; 

: 1432 141 NEWBUF = GE TBuF (5; ! GET A NEW BUFFER 
1 1433 1414 NEWBUFC4) = .BUFFERC4); 
3 1434 1415 NEWBUFC5) = .BUFFER(5); 

3: 1435 1218 NEWBUF(6) = .BUFFERL6); 

3: 1436 141 QIODONE ( .NEWBUF); 

> 1437 1418 IF .SINGLEFLAG EQL 0 THEN 
3: 1438 1419 FREEBUF ( .BUFFER); ! SINGLE CHAR MODE WAS DISABLED 
3: 1439 1420 1 END; 


ONE CHAR: .WORD 
CLRB 


0004 
0000° ff 94 

0 F CALLS 
MOVL 


- 8 


Save R2 
SINGLE INPROG 
#0, GETBUF 
BUFFER, R2 


ooo 
Seve 
Sete eee 
abubabat 
Pr rw 
sj 
Pwnow 


1b-se Sep-1 VAX-11 Bliss-32 V4.0-742 
1 300-138 ¢: We a DISKSVMSMASTER: tk TPAD. SRCIRSXRT.B32; ‘ 
10 A 10 a2 7 F MOV  16(R2), 16(NEWBUF) 
i8 8 8 nb 6b of MOVL }6(RS) - +O NEUBUE 
3 DD 19 PUSHL WBUF 
eee 0000" ' 08 8 eats 4 eaieta 
o7 1 8 4 BNEG rT 
2 DD 00026 PUSHL R2 
F8C1 CF Gi FB 00 8 CALLS #1, FREEBUF 
04 00020 18: RET 


; Routine Size: 46 bytes, Routine Base: $CODES + O8BF 


(28) 


141 
141 


1418 
1419 
1420 


6 
hese -1984 02:18:51 VAX-11 Bliss-32 V4.0-742 Page 52 
12-8 08-1 3b. 96: bB:2) DISKSVMSMASTER: CRTPAD.SRCIRSXRT.B32;1 . (21) 
3 14461 1421 1 ROUTINE TERMINATOR(RSXMOD) = 
: 1006 14 ¢ 1 +4 
3 144 14 1! 
3 14446 1424 1 ! Functional Description: 
: er 1? 5 } Provide the correct terminator mask for an RSX read operation. 
3 ieee 14 $ 1: Calling Sequence: 
3: 1448 14 S 1! standard 
: 1449 14 1! 
; 1450 14350 1 ! Input Parameters: : 
3; 1451 1431 1! RSXMOD = RSX function modifiers 
3 1028 14 ¢ 1! 
3 145 14 1! Implicit Inputs: 
3 14546 1434 1! none 
3; 1455 1435 1! 
3 1456 1436 1 ! Output Parameters: 
3: 1457 1437 1! none 
: 1458 1438 1! 
3; 1459 1439 1°! Implicit Outputs: 
3; 1460 1440 1! none 
> 1461 1441 1! 
3 1406 1226 1 ! Routines Called: 
3; 146 1445 1! none 
> 1464 1444 1: 
3; 1465 1445 1 ! Routine Value: 
3: 1466 1446 1! address of the descriptor for the terminator mask 
: 1467 1447 1! 
: 1468 1448 1 ! Signals: 
3 1469 1449 1! none 
: 1470 1450 1! 
: 1471 1451 1! Side Effects: 
; pg 1636 1! none 
3 147 1455 1! 
3 1474 1454 1 !<- 
: 1475 1455 BEGIN 
3; 1476 1456 IF (.RSXMOD AND RM_RTC) NEQ 0 THEN 
: Veer tH _ RETURN(STERMDESC) ! TERMINATE ON CONTROL CHARACTERS 
: 1479 1459 § RETURN(NTERMDESC); ' NORMAL TERMINATORS 
: 1480 1460 1 END; 
0000 00000 TERMINATOR: 
WORD Saye nothing 5 \o¢) 
06 f 23 +€E1 00002 BBC # RSXMOD, 1$ 3: 1456 
0 0000' CF 9E Se MOVAB STERMDESC, RO 2 143? 
50 0000' CF 9€ O000C 1$: MOVAB NTERMDESC, RO 3 
04 0011 RET 3; 1460 


Routine Size: 18 bytes, Routine Base: S$CODE$S + OB8ED 


Side Effects: 
If there is an error on the write to the Link, a SWAKE is issued to 
abort the program. 


1288 age ea UNSUPPORTED (BUFFER): NOVALUE = 
tbs rhe i Functional Description: 
ty 486 Return an error message to the host for unsupported functions. 
4 46 i Calling Sequence: 
i898 $38 } Standard 
491 23 i Input Parameters: 
136 ore 1 BUFFER = address of the Link buffer 
94 47 i Implicit Inputs: 
36 re } e none - 
9 47 i Qutput Parameters: 
98 ai ° non 
479 i Implicit Outputs: 
ret : RETSTATUS 
8¢ i Routines Called: 
8 non 
i Routine Value: 
: none 
i Signals: 
: none 
i 
i 
1 
i 
$ 


BEGIN 
MAP BUFFER: REF RTP_BUF; 
RETSTATUS = 
$010 (CHAN = .LINKCHAN, ! WRITE TO LINK 

FUNC = 10$_WRITEVBLK 

10SB = BUFFERCRTP_10$), 

ASTADR = LINKWRTDONE, 

ASTPRM = :BUFFER 

P1 = BUFFERCRTP_FNC), 


P2 = 128); 
IF .RETSTATUS EQL SS$_ABORT THEN 

TURN; ! Link gone - mailbox msg will tell why 
QUIT _ON_ERROR; 


vuvvUU 
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PAA VIVIUVIVIVIUI ES BE EEE EPP PPP LPL 


DOOOCOOCOO 0000000 0000000000 
SESRE Sse ub ah oer 
SPR IPIPIPIPIPINIPINI/IDPII IAI a i BB a a dd od od 
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0000 00000 UNSUPPORTED: 
ORD 


.W nothing 
7E 7C 00002 CLROQ 


Save 
-(SP) 


3} VAX-11 Bliss-32 V4 
: DISKSVMSMASTER:C 


0-7 


V4.0-742 P 
RTPAD.SRCIRSXRT.B32; 1 


53 
29° (93) 


ef 


Routine Base: 


7E 80 


7) 
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7E 000000006 
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= cel el el ee cee el ee el el el el ce el ee ee ee el eh oe ek eh el el oe el el ek ee ee ee oe el 
Ze 


lll el Rete te tet te ee ee dh eh eh Od tt Ot Ot Od Ot St Od Od Ot Ok ee ed Oe a 


ieoseoct9ne OG:18:5]  VARCHI eLiet=B2 V4.0-742 Page 56 


0004 NEXTIO: .WORD Save R2 : 1510 
0000" CF 9€ MOVAB IOQUEUE, R : 
62 MOVAB IOQQUEUE, R + 1553 
6 p A CMPL OQUEUE, R : 
4 BEQL q : 
FB oA? sO F TSTL URRENTIO : 
4 if BNEG 3 
50 09 B2 OF 0001 REMQUE @I0QUEUE, NEWIO + 1555 
06 0 1 AO 8F 00018 CASEB. 16 NEWIOS, #3, #6 : 1556 
0036 OO1E 0016 000E 0 1p 1$: WORD 3°! 7 : 

0026 0036 002E 002 $-1$,- : 
4$-1$,- : 
73-1$.- : 
at oe : 

$-1$,- : 
5$-1$ : 
50 DD 00028 2$ PUSHL NEWIO : 1558 
F915 CF 01 FB 000 CALLS #1, WRITE ; 
04 000 RET $ 
50 DD 00033 3$ PUSHL  NEWIO + 1559 
FO7F CF 01 FB 00035 CALLS #1, READ , 
04 0003A ET ; 
50 DD 00038 4$ PUSHL NEWIO 1560 
FA2C CF 01 FB 00030 CALLS #1, READPROMPT $ 
04 0004 RET : 
50 DD 00043 5$ PUSHL NEWIC + 1561 
FEST =sCF 01 FB 0004 CALLS #1, ATTACH ; 
04 O0G4A RET ; 
50 DD 00048 6$ PUSHL NEWIO : 1562 
FECE CF 01 FB 90040 CALLS #1, READSINGLE ; 
04 005¢ RET ; 
30 DD 00053 7$: PUSHL NEWIO > 1563 
F7FE CF 1 FB 90095 CALLS #1, FREEBUF ; 
04 0005A 8S: RET + 1566 


3; Routine Size: 91 bytes, Routine Base: S$CODE$ + 0955 


; 1589 1567 1 


7 7. 
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RSXRT 1b-se -1984 02:18: VAX-11 Bliss-32 V4.0-742 Page 57 
YO. ~000 1 ~300-1 38% 96: h8:2) DISKSVMSMASTER: CRTPAD.SRCIRSXRT.B32;1 ° (24) 
3; 1591 1568 1 ROUTINE LINKMBXMSG: NOVALUE = 
‘me 
: 1 1571. 1 i Functional Description: 
; ! 95 : if ! Handle messages received on the Link mailbox. 
:1 3 1574 1 | Calling Sequence: 
3 : 8 ! 6 ! standard 
: 1600 1 8 ii Input Parameters: 
1803 1898 1 i 
; 1808 1580 1 ' Implicit Inputs: 
1 ee OU i 
: 1606 1 4 1 § Output Parameters: 
2 BE i 
> 1609 12 1 i Implicit Outputs: 
BE AT | teen 
: 1618 1589 1! Routines Called: 
Be abt ae 
: 1615 1382 1 | Routine Value: 
2 Ren 0 ee 
: 1618 1595 1! Signals: 
1830 1399 1 | one 
; 1631 1598 1 | Side Effects: 
3; 16 4 1599 1! A new read on the Link mailbox may be initiated. 
3 My 1699 ! : A SWAKE may be issued to abort the program in case of a Link error. 
; 1858 180$ 3 - BEGIN 
: 16 4 1604 IF (.LINKMAILCO] EQL MSG$_DISCON) OR (.LINKMAIL(CO) EQL MSG$_ABORT) THEN 
3; 16 1605 BEGI ' TIME TO QUIT 
3; 16 1606 SPUTMSG (MSGVEC = UPLIT(2,REM$_NETDIS,0)); 
3; 16 160 QUIT; 
: 1631 1608 END 
1 ae 2 
> 16 1611 BEGIN ! IGNORE IT 
3; 1635 1218 RETSTATUS = 
3; 16 P 161 $010 (CHAN = .MAILCHAN ' LINK MAILBOX READ 
3 1637 P 1614 UNC = 10$_READVBLK, 
3; 16 P 1615 ASTADR = LINKMBXMSG, 
3 107 P 1918 9 = LINKMAIL, 
* = 3 
3 1641 1618 QUIT_ON_ERROR; 
i 1648 161 END; 
; 164 1620 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


ko 
1e-Sep 1984 18:06:87 DASKSVNSMASTER: CRTPAD. SACIRSNRT.B32; 10%" (205 


BSE BSE" Bbles pene vers : 


-EXTRN SYSSPUTMSG 
-PSECT S$CODES,NOWRT,2 
000C 00000 LINKMBXMSG: 
WORD 


Save R2,R3 : 1568 
' CF 9€ MOVAB LINKMAIL, R3 : 
2 000009906 § 3 Mii MOVAB RETSTATUS, R2 : 
63 9 9005 CMPB. = LINKMAIL, #51 + 1604 
05 1 901 BEQL~=sés«éTS$ : 
30 63 91 9 13 CMPB LINKMAIL , #48 : 
11 12 00016 BNEQ $ ; 
7E 7C 00018 1$ CLRQ = = (SP) + 1606 
7E p4 OO1A CLRL = = (SP) ; 
0000" CF 9F O001C PUSHAB P.AAG ; 
000000006 00 4 re 0 g CALLS #4, SYSSPUTMSG : 
oO BRB 3 
E 7C 00029 2$ CLRQ  =(SP) t 1617 
7E 7C 00028 CLRQ  =(SP) F 
: DD 0002D PUSHL #40 : 
DD 0002F PUSHL R3 ; 
7E D4 90031 CLRL. = (SP) ; 
CA AF 9F 00033 PUSHAB LINKMBXMSG F 
7E 31 7D 000 va 9, - : 
7E 000000006 00 3¢ 900 9 MOVZWL MAILCHAN, -(SP) : 
E D4 00040 CLRL re, : 
000000006 00 Q F 00042 CALLS oi , SYS$Q10 F 
62 DO 0004 MOVL RETSTATUS F 
1 6 E8 0004C¢ BLBS REfSTATUS- : 
E D4 0004F 38: CLRL SP) ; 
000000006 00 1 FB 0051 CALLS #1, SYSSSETAST : 
000000006 00 1 90 00058 MOVE = #1, WAKEFLAG ; 
7C 0005F CLRQ (ép) : 
000000006 00 02 FB 00061 CALLS ry SYSSWAKE ; 
04 00068 4$ RET : 1620 


; Routine Size: 105 bytes, Routine Base: S$CODES + 0980 


: 
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1S $eo-t9ge 93:00:37 DISKSUMSMASTERSCRTPAD. SRCIRSURT.32;1°%" (25) 


Eg 


ROUTINE INDREAD = 
‘+4 


i Functional Description: 
Read a record from an indirect command file. 


Calling Sequence: 
standard 


Input Parameters? 
none 


WN“ OC DONOVUES WN —"O0ONIO 


PIP MAAAD AD AAA Re 


PARAAAAAAAAAAAAAAAAAAAAAA AAAS 


y 1853 

3 1 1 g 1 

3 7 1624 1 

3 1 1625 1 

a | 1 § 1! 

3 3 1 1! 

3 1 1 8 1! 

3 1 1 1! 

3 } 1630 1! 

3 1 1631 1! 

: 1 1 ¢ 1! 

3 7 1 1! 

: 1 1634 1 ! Implicit inputs 

s 1635 1! INDDATA 

3 1 1 : 1! INDFLAG 

. % 1 1! SYSINRAB 

3 1 1638 1! SYSINFAB 

3 1 1639 1! 

3; 1664 1640 1 ! Output Parameters: 

3: 1665 1641 1! non 

3 1998 1 rq: 1! 

3 166 1645 1! Implicit Outputs: 

3; 1668 1644 1! SYSINRAB 

3: 1669 1645 1! 

3; 1670 1 rf 1 ! Routines Called: 

: 1671 1647 1! $GET 

3 167¢ 1648 1! SCLOSE 

3 167 1649 1! FREEBUF 

3: 1674 1650 1! 

: 1675 1651 1 ! Routine Value: 

3; 1676 1636 1! Status of the $GET 

3; 1677 1653 1! 

3; 1678 1654 1 ! Signals: 

3 1679 1655 1! none 

3; 1680 1656 1! 

: 1681 1657 1°! Side Effects: f 

3 1086 1658 1! If an EOF is read, tie indirect command file is closed. 

3 168 1659 1! 

> 1684 1660 1 !-- 

3: 1685 1661 BEGIN 

3: 1686 1996 RETSTATUS = 

3: 1687 166 SGET (RAB = SYSINRAB); ' READ A RECORD 

; 1688 1664 IF .RETSTATUS EQL RMS$_EOF THEN 

3 1665 BEGIN ! END OF FILE 

3; 1690 1666 SCLOSE (FAB = SYSINFAB); ' CLOSE THE COMMAND FILE 
3 1691 1667 FREEBUF (. INDDATA); ! GET RID OF THE BUFFER 
: 1696 1668 INDDATA = 0; ' NO MORE DATA 

: 169 1088 INDFLAG = 0; ' NO MORE FILE 

3 1694 1670 END 

3; 1695 1671 ELSE 

; 1208 1976 BEGIN 

3 169 167 IF (.RETSTATUS AND 1) EQL.Q THEN RETURN .RETSTATUS; ' ERROR 
3; 1698 1674 (. INDDATA+26+.SYSINRABLRABSW_RSZ7J)<0,8> = %X"0D"; ' ADD TERMINATOR 
3 169) 1675 tee yey AL bh = . SYSINRABCRABSW_RSZ); ' RECORD SIZE 
3 1700 1976 gaa RTP_IOS] = .RETSTATUS; ' STATUS FROM THE $GET 


mM 6 
16-Sep 4 02:18: VAX-11 Bliss-32 V4.0-742 0 
14-Sep =138% ¢: 204: 3 DISKSVMSMASTER: CRTPAD. SRCIRSXRT.B32;1 29e 388 
: 170 1678 RETURN .RETSTATUS; 
: 170 1679 ; END; : 


«EXTRN SYSS$GET, SYSSCLOSE 


001¢ 900 INDREAD: WORD Save R2,R3,R4 : 1621 
54 0000" CF 9€ 000 MOVAB INDDATA, R& : 
3 000000006 60 9E 000 MOVAB RETSTATUS, R3 : 
000000006 00 9F 0000E PUSHAB SYSINRAB + 1663 
000000006 09 1 FB O14 CALLS #1, SYSS$GET : 
: D 1B OVL RO, RETSTATUS : 
2 g dO pote OVL hs : 1664 
0001827A = BF D1 000 CAPL , #98938 ; 
it 12 00028 BNEQ ; 
000000006 00 9F O002A PUSHAB SYSINFAB + 1666 
000000006 00 01 FB 000 0 CALLS #1, SYS$CLOSE ; 
64 DD 000 PUSHL INDDATA + 1667 
F756 CF 01 FB 00039 CALLS #1, FREEBUF ; 
64 D4 O003E CLRL INDDATA 3; 1668 
000000006 00 94 90040 CLRB INDFLAG + 1669 
16 11 0046 BRB a + 1664 
04 52 EB 00048 1$: BLBS  R2, 2$ + 1673 
50 52 DO 00048 MOVL Re, RO : 
04 0004E RET ; 
50 64 b0 OO4F 2$: MOVL INDDATA RO + 1674 
51 000000006 00 3¢ 00058 MOVZWL SY SINRAB+ 34 R1 F 
1A A140 0D 90 0005 MOVB : 26(R1) ERO] : 
OA AO 51 BO 0005 MOVW at 10(RO) : 1675 
08 Ao 38 BO 0006 MOVW 2° 8(RO) + 1676 
50 63 Dd 00066 3$: MOVL = RETSTATUS, RO : 1678 
04 00069 RET : 1679 


; Routine Size: 106 bytes, Routine Base: S$CODE$S + OA19 


61 
9° 26) 
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! POINT TO THE CHARACTERISTICS LIST 
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RSXRT 16-Sep-1984 02:18: VAX-11 Bliss-32 V4.0-742 P 62 
raeeen teas Petes) eR OALSTER-CUTPAD ShcaRsxnt.32-4°%" «oes 
1763 1738 CASE - CHARPTRCO] FROM 0 TO RC_MAX OF 
: 1764 1539 RC_HHT): 
: 1765 1740 tos wecg hARPTRC1 = .TERMCHARLTTSV_MECHTAB); 
: 1767 1248 ~~" CHARPTRE1] = .TERMCHARCTTS$V_NOECHO]; 4 
: 1768 174 CRC_TTP): 4 
; 1769 1766 SELECTONE, « TERATYPE OF 4 
: 1771 174 DT$_vT100): 4 
; 177@ 1923 : HARPTRL1) = 13; 4 
: 177 1748 CDT$_vT52]: 4 
: 13h 1580 cormenuiseae ve te d 
: 1a 1583 CRC_SCP) mi - d 
: 1778 1583 ~~ “CHARPTRE1] = .TERMCHARCTTS$V_SCOPE); 4 
> 1779 1754 CRC_BINI: 4 
: 1780 1739 tae rey yceanPtact = .TERMCHARLTT$V_PASSALL]; , 
: 178¢ 1737 3 ivrancegtaRPTRet = ,TERMLENGTH; ‘ 
eR em 
: 1786 1761 3 CHARPTR = .CHARPTR + 2; , 
: 1788 1588 BUFFERCRTP_STS) = RS_SFC; ! GOOD STATUS 4 
3: 1789 1764 RETSTATUS = 4 
: 1790 P 1765 $010 (CHAN = .LINKCHAN, ! WRITE TO LINK 4 
: 1791 P 1766 FUNC = I10$_WRITEVBLK 4 
; 1798 P 1767 10SB = BUFFERCRTP_10$), 4 
: 179 P 1768 ASTADR = LINKWRTDONE, 4 
+ 1794 P1769 2 ASTPRM = :BUFFER 4 
> 1795 P 1770 ‘ Pi = BUFFERCRTP_FNC), 4 
3 1796 1771 P2 = (.CHARPTR * 2 = BUFFERCRTP_FNC.)); 4 
: 1797 127 2 IF .RETSTATUS EQL SS$_ABORI THEN 4 
: 1798 1773 2 ; ! LINK GONE = MAILBOX MESSAGE WILL TELL WHY 4 
> 1799 1774 2 QUIT_ON_ERROR; 4 
: 1800 1775 1 END; 
4 
é 
000C 00000 GETTERMCHAR: 5 
.WORD Save R2,R3 : 1680 5 
53 000000006 00 H 9002 MOV REISTATUS, R3 ; 5 
SE 0c ¢ 000 SUBL2 #12 : 5 
7E 7C 0000C CLRO. 0 = (SP) : 1731 5 
7E 7C SO0E CLRQ —_ = (SP) ; 5 
0C DD 0001 PUSHL #12 ; 5 
14 AE 9F 0001 PUSHAB CHARBUF : é 
ze 7C 0001 CLRosie ; 
7E 7D 0001 MOVO #39, =(SP) ; 
7E 000000006 60 3C OO01A MOVZWL CNTRLCHAN, -(SP) F 
E D4 4 CLRL 5(gP) ; 5 
000000006 00 OC FB 3 CALLS #12, SYS$Q10W ; ; 
§ 
5 
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dD 7 
16-Sep 8: VAX-11 Bliss-32 V 742 64 
14-Sep =1382 ¢: be 3 DISKSVMSMASTER: chtpap SRCIRSXRT.B32; fag * (26) 
01 =A 07 AE 9 C2 12$: MOVB.  TERMLENGTH, 1(CHARPTR) : 1757 P] 
88 05 p £6 18§: ADDL2 ie. CHARPTR : 1761 5 
FFOE CA BRW : : 1734 5 
13. Al 94 000CD 148 CLRB 9(R1) + 1763 P] 
7E 7C D CLROQ -(SP) + 1771 5 
i C D CLRQ -(SP) : 5 
52 A 25 D4 HOVAR 1g(RI) R2 F 3 
g 38 £2 000D8 UBL2 R2, RO ; 3 
02 AO OF OpB PUSHAB (RO) : 5 
1 Al 9F D PUSHAB 16(R1) : 5 
51 DD 000E PUSHL R17 : 2 
FAQS CF OF SOE PUSHAB L INKWRTDONE : P] 
8B Al OF E PUSHAB 8(R1) : 5 
30 bo OOEA PUSHL #48 : 5 
7E 000000006 90 C OO0E MOVZWL LINKCHAN, -(SP) : 5 
E 04 000F CLRL WS) : 5 
000000006 09 of FB OOF CALLS #12, SYS$QIO : 3 
6 DO OOOFC MOVL RO, RETSTATUS : 5 
50 D1 OOOFF CMPL RO, #44 : 1772 5 
1¢ 13 00102 BEQL 6-16 $ ; 5 
19 50 £8 90104 BLBS RO, 16$ : 1773 5 
7E 04 00107 15$:  CLRL -<(S§P) : é 
000000006 00 01 FB 00109 CALLS #1, SYSSSETAST : 6 
000000006 00 01 90 00110 OvB #1. WAKEFLAG : 6 
7E 7C 00117 CLRQ -(§P) : € 
000000006 00 02 FB 00119 CALLS #2, SYSSWAKE : 6 
04 00120 16$: RET : 1775 6 
; Routine Size: 289 bytes, Routine Base: $CODE$S + 0A83 1 
6 
> 1801 1776 1 6 
: 1802 1777 1 6 
: 1803 1778 1 END 
3 1804 1779 0 ELUDOM 
: PSECT SUMMARY ¢ 
: Name Bytes Attributes é 
3 SOWNS 164 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) é 
: SPLITS 80 NOVEC.NOWRT. RD .NOEXE.NOSHR. LCL. REL, CON.NOPIC.ALIGN(2) 6 
: PROTOTBL 6 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 6 
: SCODES 2980 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) é 
é 
é 
; Library Statistics 
es i ro es Ss 8 ad ys. eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
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1$-Se0-1964 02:18:51 VAK-HT Blise-32 vis0-742 page 65 


SDUASB:ESYSLIBICLINAC-{ 32:1 nee} % ” See hate 00:00:0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RSXRT/OBJ=OBJ$:RSXRT MSRC$:RSXRT/UPDATE=(ENH$:RSXRT) 
2980 Bie 250 data bytes 


0:37. 
d x OS 32 5.6 
CPU Min: 85 
Ane gay” 3658 
222 pages 
olen Complete 
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